\(\int \frac {a+b \text {sech}^{-1}(c x)}{(d+e x^2)^3} \, dx\) [129]
Optimal result
Integrand size = 18, antiderivative size = 1272 \[
\int \frac {a+b \text {sech}^{-1}(c x)}{\left (d+e x^2\right )^3} \, dx=\frac {b c \sqrt {e} \sqrt {-1+\frac {1}{c x}} \sqrt {1+\frac {1}{c x}}}{16 (-d)^{3/2} \left (c^2 d+e\right ) \left (\sqrt {-d} \sqrt {e}-\frac {d}{x}\right )}+\frac {b c \sqrt {e} \sqrt {-1+\frac {1}{c x}} \sqrt {1+\frac {1}{c x}}}{16 (-d)^{3/2} \left (c^2 d+e\right ) \left (\sqrt {-d} \sqrt {e}+\frac {d}{x}\right )}+\frac {\sqrt {e} \left (a+b \text {sech}^{-1}(c x)\right )}{16 (-d)^{3/2} \left (\sqrt {-d} \sqrt {e}-\frac {d}{x}\right )^2}-\frac {5 \left (a+b \text {sech}^{-1}(c x)\right )}{16 d^2 \left (\sqrt {-d} \sqrt {e}-\frac {d}{x}\right )}-\frac {\sqrt {e} \left (a+b \text {sech}^{-1}(c x)\right )}{16 (-d)^{3/2} \left (\sqrt {-d} \sqrt {e}+\frac {d}{x}\right )^2}+\frac {5 \left (a+b \text {sech}^{-1}(c x)\right )}{16 d^2 \left (\sqrt {-d} \sqrt {e}+\frac {d}{x}\right )}+\frac {5 b \arctan \left (\frac {\sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {1+\frac {1}{c x}}}{\sqrt {c d+\sqrt {-d} \sqrt {e}} \sqrt {-1+\frac {1}{c x}}}\right )}{8 d^2 \sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {c d+\sqrt {-d} \sqrt {e}}}-\frac {b e \arctan \left (\frac {\sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {1+\frac {1}{c x}}}{\sqrt {c d+\sqrt {-d} \sqrt {e}} \sqrt {-1+\frac {1}{c x}}}\right )}{8 d \left (c d-\sqrt {-d} \sqrt {e}\right )^{3/2} \left (c d+\sqrt {-d} \sqrt {e}\right )^{3/2}}+\frac {5 b \arctan \left (\frac {\sqrt {c d+\sqrt {-d} \sqrt {e}} \sqrt {1+\frac {1}{c x}}}{\sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {-1+\frac {1}{c x}}}\right )}{8 d^2 \sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {c d+\sqrt {-d} \sqrt {e}}}-\frac {b e \arctan \left (\frac {\sqrt {c d+\sqrt {-d} \sqrt {e}} \sqrt {1+\frac {1}{c x}}}{\sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {-1+\frac {1}{c x}}}\right )}{8 d \left (c d-\sqrt {-d} \sqrt {e}\right )^{3/2} \left (c d+\sqrt {-d} \sqrt {e}\right )^{3/2}}+\frac {3 \left (a+b \text {sech}^{-1}(c x)\right ) \log \left (1-\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}-\sqrt {c^2 d+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}-\frac {3 \left (a+b \text {sech}^{-1}(c x)\right ) \log \left (1+\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}-\sqrt {c^2 d+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}+\frac {3 \left (a+b \text {sech}^{-1}(c x)\right ) \log \left (1-\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}+\sqrt {c^2 d+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}-\frac {3 \left (a+b \text {sech}^{-1}(c x)\right ) \log \left (1+\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}+\sqrt {c^2 d+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}-\frac {3 b \operatorname {PolyLog}\left (2,-\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}-\sqrt {c^2 d+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}+\frac {3 b \operatorname {PolyLog}\left (2,\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}-\sqrt {c^2 d+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}-\frac {3 b \operatorname {PolyLog}\left (2,-\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}+\sqrt {c^2 d+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}+\frac {3 b \operatorname {PolyLog}\left (2,\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}+\sqrt {c^2 d+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}
\]
[Out]
3/16*(a+b*arcsech(c*x))*ln(1-c*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))*(-d)^(1/2)/(e^(1/2)-(c^2*d+e)^(1/2)))/
(-d)^(5/2)/e^(1/2)-3/16*(a+b*arcsech(c*x))*ln(1+c*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))*(-d)^(1/2)/(e^(1/2)
-(c^2*d+e)^(1/2)))/(-d)^(5/2)/e^(1/2)+3/16*(a+b*arcsech(c*x))*ln(1-c*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))*
(-d)^(1/2)/(e^(1/2)+(c^2*d+e)^(1/2)))/(-d)^(5/2)/e^(1/2)-3/16*(a+b*arcsech(c*x))*ln(1+c*(1/c/x+(-1+1/c/x)^(1/2
)*(1+1/c/x)^(1/2))*(-d)^(1/2)/(e^(1/2)+(c^2*d+e)^(1/2)))/(-d)^(5/2)/e^(1/2)-3/16*b*polylog(2,-c*(1/c/x+(-1+1/c
/x)^(1/2)*(1+1/c/x)^(1/2))*(-d)^(1/2)/(e^(1/2)-(c^2*d+e)^(1/2)))/(-d)^(5/2)/e^(1/2)+3/16*b*polylog(2,c*(1/c/x+
(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))*(-d)^(1/2)/(e^(1/2)-(c^2*d+e)^(1/2)))/(-d)^(5/2)/e^(1/2)-3/16*b*polylog(2,-c
*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))*(-d)^(1/2)/(e^(1/2)+(c^2*d+e)^(1/2)))/(-d)^(5/2)/e^(1/2)+3/16*b*poly
log(2,c*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))*(-d)^(1/2)/(e^(1/2)+(c^2*d+e)^(1/2)))/(-d)^(5/2)/e^(1/2)-1/8*
b*e*arctan((1+1/c/x)^(1/2)*(c*d-(-d)^(1/2)*e^(1/2))^(1/2)/(-1+1/c/x)^(1/2)/(c*d+(-d)^(1/2)*e^(1/2))^(1/2))/d/(
c*d-(-d)^(1/2)*e^(1/2))^(3/2)/(c*d+(-d)^(1/2)*e^(1/2))^(3/2)-1/8*b*e*arctan((1+1/c/x)^(1/2)*(c*d+(-d)^(1/2)*e^
(1/2))^(1/2)/(-1+1/c/x)^(1/2)/(c*d-(-d)^(1/2)*e^(1/2))^(1/2))/d/(c*d-(-d)^(1/2)*e^(1/2))^(3/2)/(c*d+(-d)^(1/2)
*e^(1/2))^(3/2)+1/16*(a+b*arcsech(c*x))*e^(1/2)/(-d)^(3/2)/(-d/x+(-d)^(1/2)*e^(1/2))^2-5/16*(a+b*arcsech(c*x))
/d^2/(-d/x+(-d)^(1/2)*e^(1/2))-1/16*(a+b*arcsech(c*x))*e^(1/2)/(-d)^(3/2)/(d/x+(-d)^(1/2)*e^(1/2))^2+5/16*(a+b
*arcsech(c*x))/d^2/(d/x+(-d)^(1/2)*e^(1/2))+1/16*b*c*e^(1/2)*(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2)/(-d)^(3/2)/(c^2*
d+e)/(-d/x+(-d)^(1/2)*e^(1/2))+1/16*b*c*e^(1/2)*(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2)/(-d)^(3/2)/(c^2*d+e)/(d/x+(-d
)^(1/2)*e^(1/2))+5/8*b*arctan((1+1/c/x)^(1/2)*(c*d-(-d)^(1/2)*e^(1/2))^(1/2)/(-1+1/c/x)^(1/2)/(c*d+(-d)^(1/2)*
e^(1/2))^(1/2))/d^2/(c*d-(-d)^(1/2)*e^(1/2))^(1/2)/(c*d+(-d)^(1/2)*e^(1/2))^(1/2)+5/8*b*arctan((1+1/c/x)^(1/2)
*(c*d+(-d)^(1/2)*e^(1/2))^(1/2)/(-1+1/c/x)^(1/2)/(c*d-(-d)^(1/2)*e^(1/2))^(1/2))/d^2/(c*d-(-d)^(1/2)*e^(1/2))^
(1/2)/(c*d+(-d)^(1/2)*e^(1/2))^(1/2)
Rubi [A] (verified)
Time = 3.40 (sec) , antiderivative size = 1272, normalized size of antiderivative = 1.00, number
of steps used = 81, number of rules used = 12, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.667, Rules used = {6428, 5959, 5909, 5963,
98, 95, 211, 5962, 5681, 2221, 2317, 2438} \[
\int \frac {a+b \text {sech}^{-1}(c x)}{\left (d+e x^2\right )^3} \, dx=\frac {b \sqrt {e} \sqrt {\frac {1}{c x}-1} \sqrt {1+\frac {1}{c x}} c}{16 (-d)^{3/2} \left (d c^2+e\right ) \left (\sqrt {-d} \sqrt {e}-\frac {d}{x}\right )}+\frac {b \sqrt {e} \sqrt {\frac {1}{c x}-1} \sqrt {1+\frac {1}{c x}} c}{16 (-d)^{3/2} \left (d c^2+e\right ) \left (\frac {d}{x}+\sqrt {-d} \sqrt {e}\right )}-\frac {5 \left (a+b \text {sech}^{-1}(c x)\right )}{16 d^2 \left (\sqrt {-d} \sqrt {e}-\frac {d}{x}\right )}+\frac {5 \left (a+b \text {sech}^{-1}(c x)\right )}{16 d^2 \left (\frac {d}{x}+\sqrt {-d} \sqrt {e}\right )}+\frac {\sqrt {e} \left (a+b \text {sech}^{-1}(c x)\right )}{16 (-d)^{3/2} \left (\sqrt {-d} \sqrt {e}-\frac {d}{x}\right )^2}-\frac {\sqrt {e} \left (a+b \text {sech}^{-1}(c x)\right )}{16 (-d)^{3/2} \left (\frac {d}{x}+\sqrt {-d} \sqrt {e}\right )^2}-\frac {b e \arctan \left (\frac {\sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {1+\frac {1}{c x}}}{\sqrt {c d+\sqrt {-d} \sqrt {e}} \sqrt {\frac {1}{c x}-1}}\right )}{8 d \left (c d-\sqrt {-d} \sqrt {e}\right )^{3/2} \left (c d+\sqrt {-d} \sqrt {e}\right )^{3/2}}+\frac {5 b \arctan \left (\frac {\sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {1+\frac {1}{c x}}}{\sqrt {c d+\sqrt {-d} \sqrt {e}} \sqrt {\frac {1}{c x}-1}}\right )}{8 d^2 \sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {c d+\sqrt {-d} \sqrt {e}}}-\frac {b e \arctan \left (\frac {\sqrt {c d+\sqrt {-d} \sqrt {e}} \sqrt {1+\frac {1}{c x}}}{\sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {\frac {1}{c x}-1}}\right )}{8 d \left (c d-\sqrt {-d} \sqrt {e}\right )^{3/2} \left (c d+\sqrt {-d} \sqrt {e}\right )^{3/2}}+\frac {5 b \arctan \left (\frac {\sqrt {c d+\sqrt {-d} \sqrt {e}} \sqrt {1+\frac {1}{c x}}}{\sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {\frac {1}{c x}-1}}\right )}{8 d^2 \sqrt {c d-\sqrt {-d} \sqrt {e}} \sqrt {c d+\sqrt {-d} \sqrt {e}}}+\frac {3 \left (a+b \text {sech}^{-1}(c x)\right ) \log \left (1-\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}-\sqrt {d c^2+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}-\frac {3 \left (a+b \text {sech}^{-1}(c x)\right ) \log \left (\frac {\sqrt {-d} e^{\text {sech}^{-1}(c x)} c}{\sqrt {e}-\sqrt {d c^2+e}}+1\right )}{16 (-d)^{5/2} \sqrt {e}}+\frac {3 \left (a+b \text {sech}^{-1}(c x)\right ) \log \left (1-\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}+\sqrt {d c^2+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}-\frac {3 \left (a+b \text {sech}^{-1}(c x)\right ) \log \left (\frac {\sqrt {-d} e^{\text {sech}^{-1}(c x)} c}{\sqrt {e}+\sqrt {d c^2+e}}+1\right )}{16 (-d)^{5/2} \sqrt {e}}-\frac {3 b \operatorname {PolyLog}\left (2,-\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}-\sqrt {d c^2+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}+\frac {3 b \operatorname {PolyLog}\left (2,\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}-\sqrt {d c^2+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}-\frac {3 b \operatorname {PolyLog}\left (2,-\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}+\sqrt {d c^2+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}+\frac {3 b \operatorname {PolyLog}\left (2,\frac {c \sqrt {-d} e^{\text {sech}^{-1}(c x)}}{\sqrt {e}+\sqrt {d c^2+e}}\right )}{16 (-d)^{5/2} \sqrt {e}}
\]
[In]
Int[(a + b*ArcSech[c*x])/(d + e*x^2)^3,x]
[Out]
(b*c*Sqrt[e]*Sqrt[-1 + 1/(c*x)]*Sqrt[1 + 1/(c*x)])/(16*(-d)^(3/2)*(c^2*d + e)*(Sqrt[-d]*Sqrt[e] - d/x)) + (b*c
*Sqrt[e]*Sqrt[-1 + 1/(c*x)]*Sqrt[1 + 1/(c*x)])/(16*(-d)^(3/2)*(c^2*d + e)*(Sqrt[-d]*Sqrt[e] + d/x)) + (Sqrt[e]
*(a + b*ArcSech[c*x]))/(16*(-d)^(3/2)*(Sqrt[-d]*Sqrt[e] - d/x)^2) - (5*(a + b*ArcSech[c*x]))/(16*d^2*(Sqrt[-d]
*Sqrt[e] - d/x)) - (Sqrt[e]*(a + b*ArcSech[c*x]))/(16*(-d)^(3/2)*(Sqrt[-d]*Sqrt[e] + d/x)^2) + (5*(a + b*ArcSe
ch[c*x]))/(16*d^2*(Sqrt[-d]*Sqrt[e] + d/x)) + (5*b*ArcTan[(Sqrt[c*d - Sqrt[-d]*Sqrt[e]]*Sqrt[1 + 1/(c*x)])/(Sq
rt[c*d + Sqrt[-d]*Sqrt[e]]*Sqrt[-1 + 1/(c*x)])])/(8*d^2*Sqrt[c*d - Sqrt[-d]*Sqrt[e]]*Sqrt[c*d + Sqrt[-d]*Sqrt[
e]]) - (b*e*ArcTan[(Sqrt[c*d - Sqrt[-d]*Sqrt[e]]*Sqrt[1 + 1/(c*x)])/(Sqrt[c*d + Sqrt[-d]*Sqrt[e]]*Sqrt[-1 + 1/
(c*x)])])/(8*d*(c*d - Sqrt[-d]*Sqrt[e])^(3/2)*(c*d + Sqrt[-d]*Sqrt[e])^(3/2)) + (5*b*ArcTan[(Sqrt[c*d + Sqrt[-
d]*Sqrt[e]]*Sqrt[1 + 1/(c*x)])/(Sqrt[c*d - Sqrt[-d]*Sqrt[e]]*Sqrt[-1 + 1/(c*x)])])/(8*d^2*Sqrt[c*d - Sqrt[-d]*
Sqrt[e]]*Sqrt[c*d + Sqrt[-d]*Sqrt[e]]) - (b*e*ArcTan[(Sqrt[c*d + Sqrt[-d]*Sqrt[e]]*Sqrt[1 + 1/(c*x)])/(Sqrt[c*
d - Sqrt[-d]*Sqrt[e]]*Sqrt[-1 + 1/(c*x)])])/(8*d*(c*d - Sqrt[-d]*Sqrt[e])^(3/2)*(c*d + Sqrt[-d]*Sqrt[e])^(3/2)
) + (3*(a + b*ArcSech[c*x])*Log[1 - (c*Sqrt[-d]*E^ArcSech[c*x])/(Sqrt[e] - Sqrt[c^2*d + e])])/(16*(-d)^(5/2)*S
qrt[e]) - (3*(a + b*ArcSech[c*x])*Log[1 + (c*Sqrt[-d]*E^ArcSech[c*x])/(Sqrt[e] - Sqrt[c^2*d + e])])/(16*(-d)^(
5/2)*Sqrt[e]) + (3*(a + b*ArcSech[c*x])*Log[1 - (c*Sqrt[-d]*E^ArcSech[c*x])/(Sqrt[e] + Sqrt[c^2*d + e])])/(16*
(-d)^(5/2)*Sqrt[e]) - (3*(a + b*ArcSech[c*x])*Log[1 + (c*Sqrt[-d]*E^ArcSech[c*x])/(Sqrt[e] + Sqrt[c^2*d + e])]
)/(16*(-d)^(5/2)*Sqrt[e]) - (3*b*PolyLog[2, -((c*Sqrt[-d]*E^ArcSech[c*x])/(Sqrt[e] - Sqrt[c^2*d + e]))])/(16*(
-d)^(5/2)*Sqrt[e]) + (3*b*PolyLog[2, (c*Sqrt[-d]*E^ArcSech[c*x])/(Sqrt[e] - Sqrt[c^2*d + e])])/(16*(-d)^(5/2)*
Sqrt[e]) - (3*b*PolyLog[2, -((c*Sqrt[-d]*E^ArcSech[c*x])/(Sqrt[e] + Sqrt[c^2*d + e]))])/(16*(-d)^(5/2)*Sqrt[e]
) + (3*b*PolyLog[2, (c*Sqrt[-d]*E^ArcSech[c*x])/(Sqrt[e] + Sqrt[c^2*d + e])])/(16*(-d)^(5/2)*Sqrt[e])
Rule 95
Int[(((a_.) + (b_.)*(x_))^(m_)*((c_.) + (d_.)*(x_))^(n_))/((e_.) + (f_.)*(x_)), x_Symbol] :> With[{q = Denomin
ator[m]}, Dist[q, Subst[Int[x^(q*(m + 1) - 1)/(b*e - a*f - (d*e - c*f)*x^q), x], x, (a + b*x)^(1/q)/(c + d*x)^
(1/q)], x]] /; FreeQ[{a, b, c, d, e, f}, x] && EqQ[m + n + 1, 0] && RationalQ[n] && LtQ[-1, m, 0] && SimplerQ[
a + b*x, c + d*x]
Rule 98
Int[((a_.) + (b_.)*(x_))^(m_)*((c_.) + (d_.)*(x_))^(n_.)*((e_.) + (f_.)*(x_))^(p_.), x_Symbol] :> Simp[b*(a +
b*x)^(m + 1)*(c + d*x)^(n + 1)*((e + f*x)^(p + 1)/((m + 1)*(b*c - a*d)*(b*e - a*f))), x] + Dist[(a*d*f*(m + 1)
+ b*c*f*(n + 1) + b*d*e*(p + 1))/((m + 1)*(b*c - a*d)*(b*e - a*f)), Int[(a + b*x)^(m + 1)*(c + d*x)^n*(e + f*
x)^p, x], x] /; FreeQ[{a, b, c, d, e, f, m, n, p}, x] && EqQ[Simplify[m + n + p + 3], 0] && (LtQ[m, -1] || Sum
SimplerQ[m, 1])
Rule 211
Int[((a_) + (b_.)*(x_)^2)^(-1), x_Symbol] :> Simp[(Rt[a/b, 2]/a)*ArcTan[x/Rt[a/b, 2]], x] /; FreeQ[{a, b}, x]
&& PosQ[a/b]
Rule 2221
Int[(((F_)^((g_.)*((e_.) + (f_.)*(x_))))^(n_.)*((c_.) + (d_.)*(x_))^(m_.))/((a_) + (b_.)*((F_)^((g_.)*((e_.) +
(f_.)*(x_))))^(n_.)), x_Symbol] :> Simp[((c + d*x)^m/(b*f*g*n*Log[F]))*Log[1 + b*((F^(g*(e + f*x)))^n/a)], x]
- Dist[d*(m/(b*f*g*n*Log[F])), Int[(c + d*x)^(m - 1)*Log[1 + b*((F^(g*(e + f*x)))^n/a)], x], x] /; FreeQ[{F,
a, b, c, d, e, f, g, n}, x] && IGtQ[m, 0]
Rule 2317
Int[Log[(a_) + (b_.)*((F_)^((e_.)*((c_.) + (d_.)*(x_))))^(n_.)], x_Symbol] :> Dist[1/(d*e*n*Log[F]), Subst[Int
[Log[a + b*x]/x, x], x, (F^(e*(c + d*x)))^n], x] /; FreeQ[{F, a, b, c, d, e, n}, x] && GtQ[a, 0]
Rule 2438
Int[Log[(c_.)*((d_) + (e_.)*(x_)^(n_.))]/(x_), x_Symbol] :> Simp[-PolyLog[2, (-c)*e*x^n]/n, x] /; FreeQ[{c, d,
e, n}, x] && EqQ[c*d, 1]
Rule 5681
Int[(((e_.) + (f_.)*(x_))^(m_.)*Sinh[(c_.) + (d_.)*(x_)])/(Cosh[(c_.) + (d_.)*(x_)]*(b_.) + (a_)), x_Symbol] :
> Simp[-(e + f*x)^(m + 1)/(b*f*(m + 1)), x] + (Int[(e + f*x)^m*(E^(c + d*x)/(a - Rt[a^2 - b^2, 2] + b*E^(c + d
*x))), x] + Int[(e + f*x)^m*(E^(c + d*x)/(a + Rt[a^2 - b^2, 2] + b*E^(c + d*x))), x]) /; FreeQ[{a, b, c, d, e,
f}, x] && IGtQ[m, 0] && NeQ[a^2 - b^2, 0]
Rule 5909
Int[((a_.) + ArcCosh[(c_.)*(x_)]*(b_.))^(n_.)*((d_) + (e_.)*(x_)^2)^(p_.), x_Symbol] :> Int[ExpandIntegrand[(a
+ b*ArcCosh[c*x])^n, (d + e*x^2)^p, x], x] /; FreeQ[{a, b, c, d, e, n}, x] && NeQ[c^2*d + e, 0] && IntegerQ[p
] && (p > 0 || IGtQ[n, 0])
Rule 5959
Int[((a_.) + ArcCosh[(c_.)*(x_)]*(b_.))^(n_.)*((f_.)*(x_))^(m_.)*((d_) + (e_.)*(x_)^2)^(p_.), x_Symbol] :> Int
[ExpandIntegrand[(a + b*ArcCosh[c*x])^n, (f*x)^m*(d + e*x^2)^p, x], x] /; FreeQ[{a, b, c, d, e, f}, x] && NeQ[
c^2*d + e, 0] && IGtQ[n, 0] && IntegerQ[p] && IntegerQ[m]
Rule 5962
Int[((a_.) + ArcCosh[(c_.)*(x_)]*(b_.))^(n_.)/((d_.) + (e_.)*(x_)), x_Symbol] :> Subst[Int[(a + b*x)^n*(Sinh[x
]/(c*d + e*Cosh[x])), x], x, ArcCosh[c*x]] /; FreeQ[{a, b, c, d, e}, x] && IGtQ[n, 0]
Rule 5963
Int[((a_.) + ArcCosh[(c_.)*(x_)]*(b_.))^(n_.)*((d_.) + (e_.)*(x_))^(m_.), x_Symbol] :> Simp[(d + e*x)^(m + 1)*
((a + b*ArcCosh[c*x])^n/(e*(m + 1))), x] - Dist[b*c*(n/(e*(m + 1))), Int[(d + e*x)^(m + 1)*((a + b*ArcCosh[c*x
])^(n - 1)/(Sqrt[-1 + c*x]*Sqrt[1 + c*x])), x], x] /; FreeQ[{a, b, c, d, e, m}, x] && IGtQ[n, 0] && NeQ[m, -1]
Rule 6428
Int[((a_.) + ArcSech[(c_.)*(x_)]*(b_.))^(n_.)*((d_.) + (e_.)*(x_)^2)^(p_.), x_Symbol] :> -Subst[Int[(e + d*x^2
)^p*((a + b*ArcCosh[x/c])^n/x^(2*(p + 1))), x], x, 1/x] /; FreeQ[{a, b, c, d, e, n}, x] && IGtQ[n, 0] && Integ
erQ[p]
Rubi steps \begin{align*}
\text {integral}& = -\text {Subst}\left (\int \frac {x^4 \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{\left (e+d x^2\right )^3} \, dx,x,\frac {1}{x}\right ) \\ & = -\text {Subst}\left (\int \left (\frac {e^2 \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{d^2 \left (e+d x^2\right )^3}-\frac {2 e \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{d^2 \left (e+d x^2\right )^2}+\frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{d^2 \left (e+d x^2\right )}\right ) \, dx,x,\frac {1}{x}\right ) \\ & = -\frac {\text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{e+d x^2} \, dx,x,\frac {1}{x}\right )}{d^2}+\frac {(2 e) \text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{\left (e+d x^2\right )^2} \, dx,x,\frac {1}{x}\right )}{d^2}-\frac {e^2 \text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{\left (e+d x^2\right )^3} \, dx,x,\frac {1}{x}\right )}{d^2} \\ & = -\frac {\text {Subst}\left (\int \left (\frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{2 \sqrt {e} \left (\sqrt {e}-\sqrt {-d} x\right )}+\frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{2 \sqrt {e} \left (\sqrt {e}+\sqrt {-d} x\right )}\right ) \, dx,x,\frac {1}{x}\right )}{d^2}+\frac {(2 e) \text {Subst}\left (\int \left (-\frac {d \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{4 e \left (\sqrt {-d} \sqrt {e}-d x\right )^2}-\frac {d \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{4 e \left (\sqrt {-d} \sqrt {e}+d x\right )^2}-\frac {d \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{2 e \left (-d e-d^2 x^2\right )}\right ) \, dx,x,\frac {1}{x}\right )}{d^2}-\frac {e^2 \text {Subst}\left (\int \left (-\frac {d^3 \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{8 (-d)^{3/2} e^{3/2} \left (\sqrt {-d} \sqrt {e}-d x\right )^3}-\frac {3 d \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{16 e^2 \left (\sqrt {-d} \sqrt {e}-d x\right )^2}-\frac {d^3 \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{8 (-d)^{3/2} e^{3/2} \left (\sqrt {-d} \sqrt {e}+d x\right )^3}-\frac {3 d \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{16 e^2 \left (\sqrt {-d} \sqrt {e}+d x\right )^2}-\frac {3 d \left (a+b \text {arccosh}\left (\frac {x}{c}\right )\right )}{8 e^2 \left (-d e-d^2 x^2\right )}\right ) \, dx,x,\frac {1}{x}\right )}{d^2} \\ & = \frac {3 \text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{\left (\sqrt {-d} \sqrt {e}-d x\right )^2} \, dx,x,\frac {1}{x}\right )}{16 d}+\frac {3 \text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{\left (\sqrt {-d} \sqrt {e}+d x\right )^2} \, dx,x,\frac {1}{x}\right )}{16 d}+\frac {3 \text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{-d e-d^2 x^2} \, dx,x,\frac {1}{x}\right )}{8 d}-\frac {\text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{\left (\sqrt {-d} \sqrt {e}-d x\right )^2} \, dx,x,\frac {1}{x}\right )}{2 d}-\frac {\text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{\left (\sqrt {-d} \sqrt {e}+d x\right )^2} \, dx,x,\frac {1}{x}\right )}{2 d}-\frac {\text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{-d e-d^2 x^2} \, dx,x,\frac {1}{x}\right )}{d}-\frac {\text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{\sqrt {e}-\sqrt {-d} x} \, dx,x,\frac {1}{x}\right )}{2 d^2 \sqrt {e}}-\frac {\text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{\sqrt {e}+\sqrt {-d} x} \, dx,x,\frac {1}{x}\right )}{2 d^2 \sqrt {e}}-\frac {\sqrt {e} \text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{\left (\sqrt {-d} \sqrt {e}-d x\right )^3} \, dx,x,\frac {1}{x}\right )}{8 \sqrt {-d}}-\frac {\sqrt {e} \text {Subst}\left (\int \frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{\left (\sqrt {-d} \sqrt {e}+d x\right )^3} \, dx,x,\frac {1}{x}\right )}{8 \sqrt {-d}} \\ & = \frac {\sqrt {e} \left (a+b \text {sech}^{-1}(c x)\right )}{16 (-d)^{3/2} \left (\sqrt {-d} \sqrt {e}-\frac {d}{x}\right )^2}-\frac {5 \left (a+b \text {sech}^{-1}(c x)\right )}{16 d^2 \left (\sqrt {-d} \sqrt {e}-\frac {d}{x}\right )}-\frac {\sqrt {e} \left (a+b \text {sech}^{-1}(c x)\right )}{16 (-d)^{3/2} \left (\sqrt {-d} \sqrt {e}+\frac {d}{x}\right )^2}+\frac {5 \left (a+b \text {sech}^{-1}(c x)\right )}{16 d^2 \left (\sqrt {-d} \sqrt {e}+\frac {d}{x}\right )}-\frac {(3 b) \text {Subst}\left (\int \frac {1}{\sqrt {-1+\frac {x}{c}} \sqrt {1+\frac {x}{c}} \left (\sqrt {-d} \sqrt {e}-d x\right )} \, dx,x,\frac {1}{x}\right )}{16 c d^2}+\frac {(3 b) \text {Subst}\left (\int \frac {1}{\sqrt {-1+\frac {x}{c}} \sqrt {1+\frac {x}{c}} \left (\sqrt {-d} \sqrt {e}+d x\right )} \, dx,x,\frac {1}{x}\right )}{16 c d^2}+\frac {b \text {Subst}\left (\int \frac {1}{\sqrt {-1+\frac {x}{c}} \sqrt {1+\frac {x}{c}} \left (\sqrt {-d} \sqrt {e}-d x\right )} \, dx,x,\frac {1}{x}\right )}{2 c d^2}-\frac {b \text {Subst}\left (\int \frac {1}{\sqrt {-1+\frac {x}{c}} \sqrt {1+\frac {x}{c}} \left (\sqrt {-d} \sqrt {e}+d x\right )} \, dx,x,\frac {1}{x}\right )}{2 c d^2}+\frac {3 \text {Subst}\left (\int \left (-\frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{2 d \sqrt {e} \left (\sqrt {e}-\sqrt {-d} x\right )}-\frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{2 d \sqrt {e} \left (\sqrt {e}+\sqrt {-d} x\right )}\right ) \, dx,x,\frac {1}{x}\right )}{8 d}-\frac {\text {Subst}\left (\int \left (-\frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{2 d \sqrt {e} \left (\sqrt {e}-\sqrt {-d} x\right )}-\frac {a+b \text {arccosh}\left (\frac {x}{c}\right )}{2 d \sqrt {e} \left (\sqrt {e}+\sqrt {-d} x\right )}\right ) \, dx,x,\frac {1}{x}\right )}{d}-\frac {\text {Subst}\left (\int \frac {(a+b x) \sinh (x)}{\frac {\sqrt {e}}{c}-\sqrt {-d} \cosh (x)} \, dx,x,\text {sech}^{-1}(c x)\right )}{2 d^2 \sqrt {e}}-\frac {\text {Subst}\left (\int \frac {(a+b x) \sinh (x)}{\frac {\sqrt {e}}{c}+\sqrt {-d} \cosh (x)} \, dx,x,\text {sech}^{-1}(c x)\right )}{2 d^2 \sqrt {e}}-\frac {\left (b \sqrt {e}\right ) \text {Subst}\left (\int \frac {1}{\sqrt {-1+\frac {x}{c}} \sqrt {1+\frac {x}{c}} \left (\sqrt {-d} \sqrt {e}-d x\right )^2} \, dx,x,\frac {1}{x}\right )}{16 c (-d)^{3/2}}+\frac {\left (b \sqrt {e}\right ) \text {Subst}\left (\int \frac {1}{\sqrt {-1+\frac {x}{c}} \sqrt {1+\frac {x}{c}} \left (\sqrt {-d} \sqrt {e}+d x\right )^2} \, dx,x,\frac {1}{x}\right )}{16 c (-d)^{3/2}} \\ & = \text {Too large to display} \\
\end{align*}
Mathematica [C] (warning: unable to verify)
Result contains complex when optimal does not.
Time = 6.07 (sec) , antiderivative size = 2015, normalized size of antiderivative = 1.58
\[
\int \frac {a+b \text {sech}^{-1}(c x)}{\left (d+e x^2\right )^3} \, dx=\text {Result too large to show}
\]
[In]
Integrate[(a + b*ArcSech[c*x])/(d + e*x^2)^3,x]
[Out]
(a*x)/(4*d*(d + e*x^2)^2) + (3*a*x)/(8*d^2*(d + e*x^2)) + (3*a*ArcTan[(Sqrt[e]*x)/Sqrt[d]])/(8*d^(5/2)*Sqrt[e]
) + b*(((I/16)*(((-I)*Sqrt[e]*Sqrt[(1 - c*x)/(1 + c*x)]*(1 + c*x))/(Sqrt[d]*(c^2*d + e)*((-I)*Sqrt[d] + Sqrt[e
]*x)) - ArcSech[c*x]/(Sqrt[e]*((-I)*Sqrt[d] + Sqrt[e]*x)^2) + Log[x]/(d*Sqrt[e]) - Log[1 + Sqrt[(1 - c*x)/(1 +
c*x)] + c*x*Sqrt[(1 - c*x)/(1 + c*x)]]/(d*Sqrt[e]) + ((2*c^2*d + e)*Log[(-4*d*Sqrt[e]*Sqrt[c^2*d + e]*(Sqrt[e
] - I*c^2*Sqrt[d]*x + Sqrt[c^2*d + e]*Sqrt[(1 - c*x)/(1 + c*x)] + c*Sqrt[c^2*d + e]*x*Sqrt[(1 - c*x)/(1 + c*x)
]))/((2*c^2*d + e)*((-I)*Sqrt[d] + Sqrt[e]*x))])/(d*(c^2*d + e)^(3/2))))/d^(3/2) - ((I/16)*((I*Sqrt[e]*Sqrt[(1
- c*x)/(1 + c*x)]*(1 + c*x))/(Sqrt[d]*(c^2*d + e)*(I*Sqrt[d] + Sqrt[e]*x)) - ArcSech[c*x]/(Sqrt[e]*(I*Sqrt[d]
+ Sqrt[e]*x)^2) + Log[x]/(d*Sqrt[e]) - Log[1 + Sqrt[(1 - c*x)/(1 + c*x)] + c*x*Sqrt[(1 - c*x)/(1 + c*x)]]/(d*
Sqrt[e]) + ((2*c^2*d + e)*Log[(-4*d*Sqrt[e]*Sqrt[c^2*d + e]*(Sqrt[e] + I*c^2*Sqrt[d]*x + Sqrt[c^2*d + e]*Sqrt[
(1 - c*x)/(1 + c*x)] + c*Sqrt[c^2*d + e]*x*Sqrt[(1 - c*x)/(1 + c*x)]))/((2*c^2*d + e)*(I*Sqrt[d] + Sqrt[e]*x))
])/(d*(c^2*d + e)^(3/2))))/d^(3/2) - (3*(-(ArcSech[c*x]/(I*Sqrt[d]*Sqrt[e] + e*x)) + (I*(Log[x]/Sqrt[e] - Log[
1 + Sqrt[(1 - c*x)/(1 + c*x)] + c*x*Sqrt[(1 - c*x)/(1 + c*x)]]/Sqrt[e] + Log[((2*I)*Sqrt[e]*(Sqrt[d]*Sqrt[(1 -
c*x)/(1 + c*x)]*(1 + c*x) + (Sqrt[d]*Sqrt[e] + I*c^2*d*x)/Sqrt[c^2*d + e]))/(I*Sqrt[d] + Sqrt[e]*x)]/Sqrt[c^2
*d + e]))/Sqrt[d]))/(16*d^2) - (3*(-(ArcSech[c*x]/((-I)*Sqrt[d]*Sqrt[e] + e*x)) - (I*(Log[x]/Sqrt[e] - Log[1 +
Sqrt[(1 - c*x)/(1 + c*x)] + c*x*Sqrt[(1 - c*x)/(1 + c*x)]]/Sqrt[e] + Log[(2*Sqrt[e]*(I*Sqrt[d]*Sqrt[(1 - c*x)
/(1 + c*x)]*(1 + c*x) + (I*Sqrt[d]*Sqrt[e] + c^2*d*x)/Sqrt[c^2*d + e]))/((-I)*Sqrt[d] + Sqrt[e]*x)]/Sqrt[c^2*d
+ e]))/Sqrt[d]))/(16*d^2) - (((3*I)/32)*(PolyLog[2, -E^(-2*ArcSech[c*x])] - 2*((-4*I)*ArcSin[Sqrt[1 + (I*Sqrt
[e])/(c*Sqrt[d])]/Sqrt[2]]*ArcTanh[((I*c*Sqrt[d] + Sqrt[e])*Tanh[ArcSech[c*x]/2])/Sqrt[c^2*d + e]] + ArcSech[c
*x]*Log[1 + E^(-2*ArcSech[c*x])] - ArcSech[c*x]*Log[1 + (I*(Sqrt[e] - Sqrt[c^2*d + e]))/(c*Sqrt[d]*E^ArcSech[c
*x])] + (2*I)*ArcSin[Sqrt[1 + (I*Sqrt[e])/(c*Sqrt[d])]/Sqrt[2]]*Log[1 + (I*(Sqrt[e] - Sqrt[c^2*d + e]))/(c*Sqr
t[d]*E^ArcSech[c*x])] - ArcSech[c*x]*Log[1 + (I*(Sqrt[e] + Sqrt[c^2*d + e]))/(c*Sqrt[d]*E^ArcSech[c*x])] - (2*
I)*ArcSin[Sqrt[1 + (I*Sqrt[e])/(c*Sqrt[d])]/Sqrt[2]]*Log[1 + (I*(Sqrt[e] + Sqrt[c^2*d + e]))/(c*Sqrt[d]*E^ArcS
ech[c*x])] + PolyLog[2, (I*(-Sqrt[e] + Sqrt[c^2*d + e]))/(c*Sqrt[d]*E^ArcSech[c*x])] + PolyLog[2, ((-I)*(Sqrt[
e] + Sqrt[c^2*d + e]))/(c*Sqrt[d]*E^ArcSech[c*x])])))/(d^(5/2)*Sqrt[e]) - (((3*I)/32)*(-PolyLog[2, -E^(-2*ArcS
ech[c*x])] + 2*((-4*I)*ArcSin[Sqrt[1 - (I*Sqrt[e])/(c*Sqrt[d])]/Sqrt[2]]*ArcTanh[(((-I)*c*Sqrt[d] + Sqrt[e])*T
anh[ArcSech[c*x]/2])/Sqrt[c^2*d + e]] + ArcSech[c*x]*Log[1 + E^(-2*ArcSech[c*x])] - ArcSech[c*x]*Log[1 + (I*(-
Sqrt[e] + Sqrt[c^2*d + e]))/(c*Sqrt[d]*E^ArcSech[c*x])] + (2*I)*ArcSin[Sqrt[1 - (I*Sqrt[e])/(c*Sqrt[d])]/Sqrt[
2]]*Log[1 + (I*(-Sqrt[e] + Sqrt[c^2*d + e]))/(c*Sqrt[d]*E^ArcSech[c*x])] - ArcSech[c*x]*Log[1 - (I*(Sqrt[e] +
Sqrt[c^2*d + e]))/(c*Sqrt[d]*E^ArcSech[c*x])] - (2*I)*ArcSin[Sqrt[1 - (I*Sqrt[e])/(c*Sqrt[d])]/Sqrt[2]]*Log[1
- (I*(Sqrt[e] + Sqrt[c^2*d + e]))/(c*Sqrt[d]*E^ArcSech[c*x])] + PolyLog[2, ((-I)*(-Sqrt[e] + Sqrt[c^2*d + e]))
/(c*Sqrt[d]*E^ArcSech[c*x])] + PolyLog[2, (I*(Sqrt[e] + Sqrt[c^2*d + e]))/(c*Sqrt[d]*E^ArcSech[c*x])])))/(d^(5
/2)*Sqrt[e]))
Maple [C] (warning: unable to verify)
Result contains higher order function than in optimal. Order 9 vs. order 4.
Time = 181.43 (sec) , antiderivative size = 1950, normalized size of antiderivative =
1.53
| | |
method | result | size |
| | |
parts |
\(\text {Expression too large to display}\) |
\(1950\) |
derivativedivides |
\(\text {Expression too large to display}\) |
\(1975\) |
default |
\(\text {Expression too large to display}\) |
\(1975\) |
| | |
|
|
|
[In]
int((a+b*arcsech(c*x))/(e*x^2+d)^3,x,method=_RETURNVERBOSE)
[Out]
1/4*a*x/d/(e*x^2+d)^2+3/8*a/d^2*x/(e*x^2+d)+3/8*a/d^2/(d*e)^(1/2)*arctan(e*x/(d*e)^(1/2))+b/c*(1/8*x*c^3*((-(c
*x-1)/c/x)^(1/2)*((c*x+1)/c/x)^(1/2)*c^3*d*e*x+(-(c*x-1)/c/x)^(1/2)*((c*x+1)/c/x)^(1/2)*e^2*c^3*x^3+5*d^2*c^4*
arcsech(c*x)+3*c^4*d*e*arcsech(c*x)*x^2+5*c^2*d*e*arcsech(c*x)+3*e^2*arcsech(c*x)*c^2*x^2)/d^2/(c^2*e*x^2+c^2*
d)^2/(c^2*d+e)+5/8*(-(c^2*d-2*(e*(c^2*d+e))^(1/2)+2*e)*d)^(1/2)*(c^2*d*(e*(c^2*d+e))^(1/2)+2*c^2*d*e+2*e^2+2*(
e*(c^2*d+e))^(1/2)*e)*arctanh(c*d*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/((-c^2*d+2*(e*(c^2*d+e))^(1/2)-2*e)
*d)^(1/2))/d^4/(c^2*d+e)^2/c+5/8*((c^2*d+2*(e*(c^2*d+e))^(1/2)+2*e)*d)^(1/2)*(-c^2*d*(e*(c^2*d+e))^(1/2)+2*c^2
*d*e+2*e^2-2*(e*(c^2*d+e))^(1/2)*e)*arctan(c*d*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/((c^2*d+2*(e*(c^2*d+e)
)^(1/2)+2*e)*d)^(1/2))/d^4/(c^2*d+e)^2/c-1/2*(-(c^2*d-2*(e*(c^2*d+e))^(1/2)+2*e)*d)^(1/2)*(c^2*d+2*(e*(c^2*d+e
))^(1/2)+2*e)*e*arctanh(c*d*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/((-c^2*d+2*(e*(c^2*d+e))^(1/2)-2*e)*d)^(1
/2))/d^5/(c^2*d+e)/c^3+1/2*(-(c^2*d-2*(e*(c^2*d+e))^(1/2)+2*e)*d)^(1/2)*(c^2*d*(e*(c^2*d+e))^(1/2)+2*c^2*d*e+2
*e^2+2*(e*(c^2*d+e))^(1/2)*e)*e*arctanh(c*d*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/((-c^2*d+2*(e*(c^2*d+e))^
(1/2)-2*e)*d)^(1/2))/d^5/(c^2*d+e)^2/c^3-1/2*((c^2*d+2*(e*(c^2*d+e))^(1/2)+2*e)*d)^(1/2)*(c^2*d-2*(e*(c^2*d+e)
)^(1/2)+2*e)*e*arctan(c*d*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/((c^2*d+2*(e*(c^2*d+e))^(1/2)+2*e)*d)^(1/2)
)/d^5/(c^2*d+e)/c^3+1/2*((c^2*d+2*(e*(c^2*d+e))^(1/2)+2*e)*d)^(1/2)*(-c^2*d*(e*(c^2*d+e))^(1/2)+2*c^2*d*e+2*e^
2-2*(e*(c^2*d+e))^(1/2)*e)*e*arctan(c*d*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/((c^2*d+2*(e*(c^2*d+e))^(1/2)
+2*e)*d)^(1/2))/d^5/(c^2*d+e)^2/c^3+3/16/d^2/(c^2*d+e)*c^2*e*sum(1/_R1/(_R1^2*c^2*d+c^2*d+2*e)*(arcsech(c*x)*l
n((_R1-1/c/x-(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/_R1)+dilog((_R1-1/c/x-(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/_R1)),_
R1=RootOf(c^2*d*_Z^4+(2*c^2*d+4*e)*_Z^2+c^2*d))-5/8*(-(c^2*d-2*(e*(c^2*d+e))^(1/2)+2*e)*d)^(1/2)*(c^2*d+2*(e*(
c^2*d+e))^(1/2)+2*e)*arctanh(c*d*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/((-c^2*d+2*(e*(c^2*d+e))^(1/2)-2*e)*
d)^(1/2))/d^4/(c^2*d+e)/c-5/8*((c^2*d+2*(e*(c^2*d+e))^(1/2)+2*e)*d)^(1/2)*(c^2*d-2*(e*(c^2*d+e))^(1/2)+2*e)*ar
ctan(c*d*(1/c/x+(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/((c^2*d+2*(e*(c^2*d+e))^(1/2)+2*e)*d)^(1/2))/d^4/(c^2*d+e)/c
-3/16/d^2/(c^2*d+e)*c^2*e*sum(_R1/(_R1^2*c^2*d+c^2*d+2*e)*(arcsech(c*x)*ln((_R1-1/c/x-(-1+1/c/x)^(1/2)*(1+1/c/
x)^(1/2))/_R1)+dilog((_R1-1/c/x-(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/_R1)),_R1=RootOf(c^2*d*_Z^4+(2*c^2*d+4*e)*_Z
^2+c^2*d))+3/16/d/(c^2*d+e)*c^4*sum(1/_R1/(_R1^2*c^2*d+c^2*d+2*e)*(arcsech(c*x)*ln((_R1-1/c/x-(-1+1/c/x)^(1/2)
*(1+1/c/x)^(1/2))/_R1)+dilog((_R1-1/c/x-(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/_R1)),_R1=RootOf(c^2*d*_Z^4+(2*c^2*d
+4*e)*_Z^2+c^2*d))-3/16/d/(c^2*d+e)*c^4*sum(_R1/(_R1^2*c^2*d+c^2*d+2*e)*(arcsech(c*x)*ln((_R1-1/c/x-(-1+1/c/x)
^(1/2)*(1+1/c/x)^(1/2))/_R1)+dilog((_R1-1/c/x-(-1+1/c/x)^(1/2)*(1+1/c/x)^(1/2))/_R1)),_R1=RootOf(c^2*d*_Z^4+(2
*c^2*d+4*e)*_Z^2+c^2*d)))
Fricas [F]
\[
\int \frac {a+b \text {sech}^{-1}(c x)}{\left (d+e x^2\right )^3} \, dx=\int { \frac {b \operatorname {arsech}\left (c x\right ) + a}{{\left (e x^{2} + d\right )}^{3}} \,d x }
\]
[In]
integrate((a+b*arcsech(c*x))/(e*x^2+d)^3,x, algorithm="fricas")
[Out]
integral((b*arcsech(c*x) + a)/(e^3*x^6 + 3*d*e^2*x^4 + 3*d^2*e*x^2 + d^3), x)
Sympy [F]
\[
\int \frac {a+b \text {sech}^{-1}(c x)}{\left (d+e x^2\right )^3} \, dx=\int \frac {a + b \operatorname {asech}{\left (c x \right )}}{\left (d + e x^{2}\right )^{3}}\, dx
\]
[In]
integrate((a+b*asech(c*x))/(e*x**2+d)**3,x)
[Out]
Integral((a + b*asech(c*x))/(d + e*x**2)**3, x)
Maxima [F(-2)]
Exception generated. \[
\int \frac {a+b \text {sech}^{-1}(c x)}{\left (d+e x^2\right )^3} \, dx=\text {Exception raised: ValueError}
\]
[In]
integrate((a+b*arcsech(c*x))/(e*x^2+d)^3,x, algorithm="maxima")
[Out]
Exception raised: ValueError >> Computation failed since Maxima requested additional constraints; using the 'a
ssume' command before evaluation *may* help (example of legal syntax is 'assume(e>0)', see `assume?` for more
details)Is e
Giac [F]
\[
\int \frac {a+b \text {sech}^{-1}(c x)}{\left (d+e x^2\right )^3} \, dx=\int { \frac {b \operatorname {arsech}\left (c x\right ) + a}{{\left (e x^{2} + d\right )}^{3}} \,d x }
\]
[In]
integrate((a+b*arcsech(c*x))/(e*x^2+d)^3,x, algorithm="giac")
[Out]
integrate((b*arcsech(c*x) + a)/(e*x^2 + d)^3, x)
Mupad [F(-1)]
Timed out. \[
\int \frac {a+b \text {sech}^{-1}(c x)}{\left (d+e x^2\right )^3} \, dx=\int \frac {a+b\,\mathrm {acosh}\left (\frac {1}{c\,x}\right )}{{\left (e\,x^2+d\right )}^3} \,d x
\]
[In]
int((a + b*acosh(1/(c*x)))/(d + e*x^2)^3,x)
[Out]
int((a + b*acosh(1/(c*x)))/(d + e*x^2)^3, x)